;;; package --- Summary"
;;; Commentary:
;;; Code:
(setq ring-bell-function 'ignore) ;关闭蜂鸣声

(setq gc-cons-threshold 32000000) ;; 32mb
(setq read-process-output-max (* 1024 1024)) ;; 1mb
;(setq gc-cons-threshold (* 2 1000 1000))

(require 'ibuffer)
(global-set-key (kbd "C-x C-b") 'ibuffer)

(tool-bar-mode -1) ;关闭工具栏
(menu-bar-mode -1) ;关闭菜单栏
(set-scroll-bar-mode nil) ;关闭滚动条

;(global-linum-mode t) ;显示行号

(set-face-attribute 'default nil :height 130) ;设置字体大小

;; 设置滚动时保持7行可见
(setq scroll-conservatively 10)
(setq scroll-margin 7)

(setq-default cursor-type 'bar) ;更改光标样式
(global-hl-line-mode t) ;高亮光标所在行

(global-set-key (kbd "M-1") 'delete-other-windows)
(global-set-key (kbd "M-2") 'split-window-below)
(global-set-key (kbd "M-3") 'split-window-right)
(global-set-key (kbd "M-d") 'delete-window)

;;; .emacs.d/lisp
(defun lisp ()
  "快速进入~/.emacs.d/lisp文件夹."
  (interactive)
  (counsel-find-file "~/.emacs.d/lisp"))

(provide 'startup)
;;; startup.el ends here
